Visual Basic 5 Developer's Kit/vb5 dev kit.iso/dev/mailx6/_setup.2/Group5/MSGFORM.FRM

Visual Basic Form | 1996-05-23 | 6.5 KB | 224 lines

VERSION 2.00
Begin Form MsgForm
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Message Form"
   ClientHeight    =   3975
   ClientLeft      =   1530
   ClientTop       =   4200
   ClientWidth     =   6285
   Height          =   4350
   Left            =   1485
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3975
   ScaleWidth      =   6285
   Top             =   3870
   Width           =   6375
   Begin MFile MFile1
      BindString      =   "MMsg1"
      DisplayDialog   =   0   'False
      DisplayErrors   =   0   'False
      Height          =   420
      Left            =   720
      Top             =   1680
      Width           =   420
   End
   Begin MReci MReci1
      AddRecipientClass=   1  '1- TO:
      AddressCaption  =   ""
      AddressEditNum  =   3
      BindString      =   "MMsg1"
      DetailModifiable=   -1  'True
      DisplayErrors   =   0   'False
      FetchType       =   0  '0- Originator
      Height          =   420
      Left            =   120
      ResolveDialog   =   -1  'True
      Top             =   1680
      Width           =   420
   End
   Begin MMsg MMsg1
      BindString      =   "FormTag2.MSess1"
      BodyAsFile      =   0   'False
      DisplayErrors   =   0   'False
      DisplaySendDialog=   -1  'True
      EnvelopeOnly    =   0   'False
      FastFetch       =   -1  'True
      FetchMsgType    =   ""
      Height          =   420
      Left            =   600
      MarkAsRead      =   -1  'True
      SortMsg         =   0   'False
      SuppressAttach  =   -1  'True
      TimeFormat      =   "%I:%M:%S %p. %B %d, %Y "
      Top             =   3480
      UnreadOnly      =   0   'False
      Width           =   420
      WorkingMsg      =   0  '0- Inbox Message
   End
   Begin MForm MForm1
      Height          =   255
      Left            =   3480
      MXFormName      =   "FormTag4"
      Top             =   3600
      Width           =   1815
   End
   Begin ComboBox szFileList
      Height          =   300
      Left            =   1320
      TabIndex        =   15
      Top             =   2655
      Width           =   1935
   End
   Begin TextBox szOriginator
      Height          =   375
      Left            =   4440
      TabIndex        =   14
      Top             =   2640
      Width           =   1575
   End
   Begin SSPanel Panel3D1
      BevelInner      =   1  'Inset
      Height          =   615
      Left            =   -15
      TabIndex        =   8
      Top             =   0
      Width           =   6300
      Begin CommandButton BtnSend
         Caption         =   "Send"
         Height          =   420
         Left            =   4290
         TabIndex        =   16
         Top             =   75
         Width           =   1125
      End
      Begin CommandButton BtnForward
         Caption         =   "Forward"
         Height          =   420
         Left            =   2865
         TabIndex        =   11
         Top             =   75
         Width           =   1155
      End
      Begin CommandButton btnReply
         Caption         =   "Reply"
         Height          =   420
         Left            =   1440
         TabIndex        =   10
         Top             =   75
         Width           =   1170
      End
      Begin CommandButton BtnHide
         Caption         =   "Hide Msg"
         Height          =   420
         Left            =   105
         TabIndex        =   9
         Top             =   75
         Width           =   1125
      End
   End
   Begin TextBox szMsgID
      Height          =   495
      Left            =   1320
      TabIndex        =   7
      Top             =   3120
      Width           =   4695
   End
   Begin TextBox szTime
      Height          =   375
      Left            =   1200
      TabIndex        =   6
      Top             =   2160
      Width           =   4815
   End
   Begin TextBox szNoteText
      Height          =   855
      Left            =   1200
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   1200
      Width           =   4815
   End
   Begin TextBox szSubject
      Height          =   375
      Left            =   1200
      TabIndex        =   1
      Top             =   720
      Width           =   4815
   End
   Begin Label Label6
      BackColor       =   &H00C0C0C0&
      Caption         =   "Attachments:"
      Height          =   375
      Left            =   120
      TabIndex        =   13
      Top             =   2640
      Width           =   1215
   End
   Begin Label Label5
      BackColor       =   &H00C0C0C0&
      Caption         =   "Originator:"
      Height          =   375
      Left            =   3450
      TabIndex        =   12
      Top             =   2685
      Width           =   960
   End
   Begin Label Label4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Message ID:"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   3240
      Width           =   1215
   End
   Begin Label Label3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Time:"
      Height          =   270
      Left            =   150
      TabIndex        =   4
      Top             =   2235
      Width           =   855
   End
   Begin Label Label2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Note Text:"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   1200
      Width           =   975
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Subject:"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   855
   End
Sub BtnForward_Click ()
    MMsg1.NoteText = szNoteText
    MMsg1.Action = ACTION_FORWARD
    MMsg1.Action = ACTION_SENDMSG
End Sub
Sub BtnHide_Click ()
    Unload Me
End Sub
Sub btnReply_Click ()
    MMsg1.Action = ACTION_REPLY
    MMsg1.Action = ACTION_SENDMSG
End Sub
Sub BtnSend_Click ()
    MMsg1.Subject = szSubject
    MMsg1.NoteText = szNoteText
    MMsg1.Action = ACTION_SENDMSG
    If MMsg1.ErrorNum <> 0 Then
        MsgBox "Error Sending Message"
    End If
End Sub